[bpopup]
n0=&Little Star
n1=About and Credits:run $mircdirbin\about.exe
n2=-
n3=General Options:run $mircdirbin\options.exe $ddename $+ @ $+ $mircdir
n4=Audio/Visual Options:run $mircdirbin\visual.exe $ddename $mircdir $+ @ $+ $wavedir
n5=Popup Options:run $mircdirbin\popups.exe $ddename $+ @ $+ $mircdir
n6=%popsec:run $mircdirbin\security.exe $ddename $mircdir
n7=-
n8=User List Maintenance:run $mircdirbin\user.exe $ddename $+ @ $+ $mircdir
n9=%popxdcc
n10=.File List/Options:run $mircdirbin\xdcc.exe $ddename $+ @ $+ $mircdir
n11=.-
n12=.Enable:enablexdcc
n13=.Disable:disablexdcc
n14=.-
n15=.Messaging
n16=..Create Message:run $mircdirbin\xdccmsg.exe $ddename $+ @ $+ $mircdir $+ $allchans
n17=..Kill Message
n18=...%xdccm1:.timer280 off | altech -a %dis10 $+ Messaging to %xdccm1 halted | alert | unset %xdccm1
n19=...%xdccm2:.timer281 off | altech -a %dis10 $+ Messaging to %xdccm2 halted | alert | unset %xdccm2
n20=...%xdccm3:.timer282 off | altech -a %dis10 $+ Messaging to %xdccm3 halted | alert | unset %xdccm3
n21=...%xdccm4:.timer283 off | altech -a %dis10 $+ Messaging to %xdccm4 halted | alert | unset %xdccm4
n22=...%xdccm5:.timer284 off | altech -a %dis10 $+ Messaging to %xdccm5 halted | alert | unset %xdccm5
n23=...%xdccm6:.timer285 off | altech -a %dis10 $+ Messaging to %xdccm6 halted | alert | unset %xdccm6
n24=...%xdccm7:.timer286 off | altech -a %dis10 $+ Messaging to %xdccm7 halted | alert | unset %xdccm7
n25=...%xdccm8:.timer287 off | altech -a %dis10 $+ Messaging to %xdccm8 halted | alert | unset %xdccm8
n26=...%xdccm9:.timer288 off | altech -a %dis10 $+ Messaging to %xdccm9 halted | alert | unset %xdccm9
n27=...%xdccm10:.timer289 off | altech -a %dis10 $+ Messaging to %xdccm10 halted | alert | unset %xdccm10
n28=Text Apps
n29=.Delayed Paster:run $mircdirbin\paster.exe $ddename $+ @ $+ $mircdir $+ $allchans
n30=.Color Creator:run $mircdirbin\color.exe $ddename $+ @ $+ $mircdir
n31=.Timed Message
n32=..Create Message:run $mircdirbin\timemsg.exe $ddename $+ @ $+ $mircdir $+ $allchans
n33=..Stop Message
n34=...%tmsg1:.timer270 off | stopmessage %tmsg1 | unset %tmsg1
n35=...%tmsg2:.timer271 off | stopmessage %tmsg1 | unset %tmsg2
n36=...%tmsg3:.timer272 off | stopmessage %tmsg1 | unset %tmsg3
n37=...%tmsg4:.timer273 off | stopmessage %tmsg1 | unset %tmsg4
n38=...%tmsg5:.timer274 off | stopmessage %tmsg1 | unset %tmsg5
n39=...%tmsg6:.timer275 off | stopmessage %tmsg1 | unset %tmsg6
n40=...%tmsg7:.timer276 off | stopmessage %tmsg1 | unset %tmsg7
n41=...%tmsg8:.timer277 off | stopmessage %tmsg1 | unset %tmsg8
n42=...%tmsg9:.timer278 off | stopmessage %tmsg1 | unset %tmsg9
n43=...%tmsg10:.timer279 off | stopmessage %tmsg1 | unset %tmsg10
n44=-
n45=%popdestruct
n46=.Bitch Slap:run $mircdirbin\bitchslp.exe
n47=.ICMP Bomb:run $mircdirbin\icmpbomb.exe $ddename $+ @ $+ $mircdir $+ $querynicks
n48=.Nuke:run $mircdirbin\wnewk-x2.exe
n49=.CTCP floods:run $mircdirbin\ctcp.exe $ddename $+ @ $+ $mircdir $+ $allchans
n50=.Flood Bots:run $mircdirbin\fbots.exe $mircdir
n51=Protection
n52=.ICMP Detector:run $mircdirbin\icmpdet.exe $ddename $ip $mircdir
n53=.Connection Monitor:run $mircdirbin\monitor.exe $ddename $+ @ $+ $mircdir
n54=-
n55=%poprunapp
n56=.Link Looker:run $mircdirbin\winll.exe
n57=.Windows NotePad:run notepad.exe
n58=.MS-DOS Prompt:run command.com
n59=.-
n60=.%app1:run %appexe1
n61=.%app2:run %appexe2
n62=.%app3:run %appexe3
n63=.%app4:run %appexe4
n64=.%app5:run %appexe5
n65=.%app6:run %appexe6
n66=.%app7:run %appexe7
n67=.%app8:run %appexe8
n68=.%app9:run %appexe9
n69=.%app10:run %appexe10
n70=.%app11:run %appexe11
n71=.%app12:run %appexe12
n72=.%app13:run %appexe13
n73=.%app14:run %appexe14
n74=.%app15:run %appexe15
n75=.%app16:run %appexe16
n76=.%app17:run %appexe17
n77=.%app18:run %appexe18
n78=.%app19:run %appexe19
n79=.%app20:run %appexe20
n80=.%app21:run %appexe21
n81=.%app22:run %appexe22
n82=.%app23:run %appexe23
n83=.%app24:run %appexe24
n84=.%app14:run %appexe25
n85=.-
n86=.Add App:.timer230 off | dde control $ddename $+ popup showpopup addapp
n87=.Remove App
n88=..%app1:altech -a %dis10 $+ Removed %app1 from run app menu | unset %appexe1 | unset %app1 | ding
n89=..%app2:altech -a %dis10 $+ Removed %app2 from run app menu | unset %appexe2 | unset %app2 | ding
n90=..%app3:altech -a %dis10 $+ Removed %app3 from run app menu | unset %appexe3 | unset %app3 | ding
n91=..%app4:altech -a %dis10 $+ Removed %app4 from run app menu | unset %appexe4 | unset %app4 | ding
n92=..%app5:altech -a %dis10 $+ Removed %app5 from run app menu | unset %appexe5 | unset %app5 | ding
n93=..%app6:altech -a %dis10 $+ Removed %app6 from run app menu | unset %appexe6 | unset %app6 | ding
n94=..%app7:altech -a %dis10 $+ Removed %app7 from run app menu | unset %appexe7 | unset %app7 | ding
n95=..%app8:altech -a %dis10 $+ Removed %app8 from run app menu | unset %appexe8 | unset %app8 | ding
n96=..%app9:altech -a %dis10 $+ Removed %app9 from run app menu | unset %appexe9 | unset %app9 | ding
n97=..%app10:altech -a %dis10 $+ Removed %app10 from run app menu | unset %appexe10 | unset %app10 | ding
n98=..%app11:altech -a %dis10 $+ Removed %app11 from run app menu | unset %appexe11 | unset %app11 | ding
n99=..%app12:altech -a %dis10 $+ Removed %app12 from run app menu | unset %appexe12 | unset %app12 | ding
n100=..%app13:altech -a %dis10 $+ Removed %app13 from run app menu | unset %appexe13 | unset %app13 | ding
n101=..%app14:altech -a %dis10 $+ Removed %app14 from run app menu | unset %appexe14 | unset %app14 | ding
n102=..%app15:altech -a %dis10 $+ Removed %app15 from run app menu | unset %appexe15 | unset %app15 | ding
n103=..%app16:altech -a %dis10 $+ Removed %app16 from run app menu | unset %appexe16 | unset %app16 | ding
n104=..%app17:altech -a %dis10 $+ Removed %app17 from run app menu | unset %appexe17 | unset %app17 | ding
n105=..%app18:altech -a %dis10 $+ Removed %app18 from run app menu | unset %appexe18 | unset %app18 | ding
n106=..%app19:altech -a %dis10 $+ Removed %app19 from run app menu | unset %appexe19 | unset %app19 | ding
n107=..%app20:altech -a %dis10 $+ Removed %app20 from run app menu | unset %appexe20 | unset %app20 | ding
n108=..%app21:altech -a %dis10 $+ Removed %app21 from run app menu | unset %appexe21 | unset %app21 | ding
n109=..%app22:altech -a %dis10 $+ Removed %app22 from run app menu | unset %appexe22 | unset %app22 | ding
n110=..%app23:altech -a %dis10 $+ Removed %app23 from run app menu | unset %appexe23 | unset %app23 | ding
n111=..%app24:altech -a %dis10 $+ Removed %app24 from run app menu | unset %appexe24 | unset %app24 | ding
n112=-
n113=Help:set %rh61 $true | winhelp $mircdirhelp\starhelp.hlp

[cpopup]
n0=Where's the rest?:altech -a %dis10 $+ Click "Little Star" in the menu bar for additional popups | altech -a %dis10 $+ Also, more popups can be found by right-clicking in the status window | alert
n1=-
n2=%popfilter
n3=.IRC Op
n4=..Kick Only:{
n5=  amiopped # | set %tvfochan # | set %tvfocount 0 | set %tvforec 0
n6=  set %tvfoban $false | unset %tvlast* | .enable #filterops
n7=  .timer 1 120 .disable #filterops
n8=  altech # %dis10 $+ Checking for IRC Ops on # $+ ...
n9=  who #
n10=}
n11=..Kick and Ban:{
n12=  amiopped # | set %tvfochan # | set %tvfocount 0 | set %tvforec 0
n13=  set %tvfoban $true | unset %tvlast* | .enable #filterops
n14=  .timer 1 120 .disable #filterops
n15=  altech # %dis10 $+ Checking for IRC Ops on # $+ ...
n16=  who #
n17=}
n18=.Domain Filter:dde control $ddename $+ filter filter #
n19=-
n20=Channel Modes:{
n21=  if $me isop # dde control $ddename $+ modes display # $true Modes: $+ $chan(#).mode
n22=  else dde control $ddename $+ modes display # $false Modes: $+ $chan(#).mode
n23=}
n24=Topic
n25=.Change Topic:topicok # | dde control $ddename $+ modify topic # $null
n26=.Modify Topic:{
n27=  topicok #
n28=  if ($chan(#).topic = $null) dde control $ddename $+ modify topic # $null
n29=  else dde control $ddename $+ modify topic # $chan(#).topic
n30=}
n31=.Clear Topic:topicok # | topic # $chr(2)
n32=.Topic Waves
n33=..,-*'^'*-,._.,-*'^'*-,._.,-*~>:topicok # | topic # .,-*'^'*-,._.,-*'^'*-,._.,-*~> $$?="Enter Topic" <~*-,._.,-*'^'*-,._.,-*'^'*-,.
n34=.._�,.��=椺��`� �`�����-:topicok # | topic # "_�,.��=椺��`� �`�����- $$?="Enter Topic" -=椺��`� �`�����=��.,�."
n35=.. �����o�,,�o��������:topicok # | topic # �����o�,,�o�������� $$?="Enter Topic" ��������o�,,�o���
n36=.._-�-_-�-_-�-_-�-_-�-_->:topicok # | topic # _-�-_-�-_-�-_-�-_-�-_-> $$?="Enter Topic" <-_-�-_-�-_-�-_-�-_-�-_
n37=..�!�'�!�!�'�!�!�'�!�!�'�!�!�'�!��:topicok # | topic # �!�'�!�!�'�!�!�'�!�!�'�!�!�'�!�� $$?="Enter Topic" ��!�'�!�!�'�!�!�'�!�!�'�!�!�'�!�
n38=..,���`���,� �,���`���,�:topicok # | topic # ,���`���,� �,���`���,� $$?="Enter Topic" �,���`���,� �,���`���,�
n39=.._,.-'~'-.,_,.-'~'-.,_,.-'~':topicok # | topic # _,.-'~'-.,_,.-'~'-.,_,.-'~'- $$?="Enter Topic" -'~'-.,_,.-'~'-.,_,.-'~'-.,_
n40=..`�.��.���`�.��.���`�.��:topicok # | topic # `�.��.���`�.��.���`�.��.���`�.��.���`�.��.-> $$?="Enter Topic" <-.��.���`�.��.���`�.��.���`�.��.���`�.��.���
n41=.._.-�����ޕ���-_�:topicok # | topic # ._.-�����ޕ���-_�_.-�����ޕ���-_�{ $$?="Enter Topic" }�_.-�����ޕ���-_�_.-�����ޕ���-_
n42=..~����,�_�,�-��~^~����,�_:topicok # | topic # ~����,�_�,�-��~^~����,�_ $$?="Enter Topic"  _�,�-��~^~����,�_�,�-��~
n43=..+-=-=-=-=-=-=-=-=-=-=-=:topicok # | topic # +-=-=-=-=-=-=-=-=-=-=-=- $$?="Enter Topic" -=-=-=-=-=-=-=-=-=-=-=-=-=+
n44=..-=[][]:topicok # | topic # -=[][] $$?="Enter Topic" [][]=-
n45=..@}---`-----,----:topicok # | topic # @}---`-----,-------,---`-----{@    $$?="Enter Topic"    @}---`-----,-------,---`-----{@
n46=..�*~`~*��|��*~`~*�:topicok # | topic # �*~`~*��|��*~`~*��|��*~ -=�=- $$?="Enter Topic." -=�=- ~*��|��*~`~*��|��*~`~*�
n47=..\\�`�����=��.,�_ ---===|:topicok # | topic # . . . \\�`�����=��.,�_ ---===| $$?="Enter Topic." |===--- _�,.��=椺��`�// . . .
n48=..(�`�._(�`�._(�`�._(�`�._:topicok # | topic # (�`�._(�`�._(�`�._(�`�._ $$?="Enter Topic"  _.���) _.���)_.���) _.���)
n49=.. ��`~`~`��:topicok # | topic #  ��`~`~`��..��`~`~`�� $$?="Enter Topic" ��`~`~`��..��`~`~`��
n50=..��������:topicok # | topic # ���������������� $$?="Enter Topic" ����������������
n51=..�.��^`�.,��.��^`�����=��.,�_:topicok # | topic # �.��^`�.,��.��^`�����=��.,�_ $$?="Enter Topic"  _�,.��=椺��`^`�.��.��^`�.,�
n52=..(`�.��.���`�.��.���`>�:topicok # | topic # (`�.��.���`�.��.���`>� $$?="Enter Topic" �<��`�.��.���`�.��.��)
n53=..*�*��`*.��.*��`*:topicok # | topic # *�*��`*.��.*��`*( $$?="Enter Topic" )*��`*.��.*��`*�*
n54=..|!�*'~``~'*�!:topicok # | topic # |!�*'~``~'*�!||!�*'~``~'*�!| $$?="Enter Topic" |!�*'~``~'*�!||!�*'~``~'*�!|
n55=..+( ,-*~'^'~*-,._.,-*~:topicok # | topic # +( ,-*~'^'~*-,._.,-*~ $$?="Enter Topic" ~*-,._.,-*~'^'~*-, )+
n56=..,-*-,._.,-*'^'~*-,._.,-*~>:topicok # | topic # .,-*-,._.,-*'^'~*-,._.,-*~> $$?="Enter Topic" <~*-,._.,-*~'^'~*-,.
n57=.Name Waves
n58=..(�`�.��.���`�.��.���`�.��.->:topicok # | topic # (�`�.��.���`�.��.���`�.��.-> � # � <-.��.���`�.��.���`�.��.���)
n59=..�`���`���`���,�,�'>:topicok # | topic # �`���`���`���,�,�'> # <'��,,���`��^�`���`��
n60=..�����o�,,�o��������->:topicok # | topic # �����o�,,�o��������-> �] # [� <-��������o�,,�o��� 
n61=..�,���`���,��,���`���,:topicok # | topic # �,���`���,��,���`���,�� # ��,���`���,��,���`���,�
n62=..��������:topicok # | topic # ���������������� # ���������������� 
n63=.. _�,.��=椺��`��`�����-:topicok # | topic # _�,.��=椺��`��`�����- # -=椺��`��`�����=��.,�.
n64=..�.��^`�.,��.��^`�����=��.,�_:topicok # | topic # �.��^`�.,��.��^`�����=��.,�_ #  _�,.��=椺��`^`�.��.��^`�.,�
n65=..|!�*'~``~'*�!I:topicok # | topic #  |!�*'~``~'*�!||!�*'~``~'*�!| # |!�*'~``~'*�!||!�*'~``~'*�!|
n66=..<=>���-����^�\|/�\/=>:topicok # | topic # <=>���-����^�\|/�\/=> # <=\/�\|/�^-���-���<=>
n67=..�,�,��''`�,�,��''`�,:topicok # | topic # �,�,��''`�,�,��''`�,�,��''`�,�,��' # '`�,�,��''`�,�,��''`�,�,��''`�,�,�
n68=.-
n69=.Lock Topic:topicok # | set %topic $$?="Enter Topic" | set %tvlocktopic [ $+ [ # ] ] $true | set %tvtopic [ $+ [ # ] ] %topic | topic # %topic
n70=.Unlock Topic:{
n71=  if (%tvlocktopic [ $+ [ # ] ] != $true) { altech -a %dis10 $+ You don't have the topic locked for # $+ ! | dh }
n72=  set %tvlocktopic [ $+ [ # ] ] $false | unset %tvtopic [ $+ [ # ] ] 
n73=  altech -a %dis10 $+  Unlocked topic for # | alert
n74=}
n75=-
n76=Channel CTCPs
n77=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound # $nopath(%sfile)
n78=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound # $nopath(%sfile) $$?="Enter message:"
n79=.-
n80=.Ping
n81=..Ping Channel:ctcp # PING
n82=..Redirect:set %redirect $true | .timer 1 600 unset %redirect | set %rchan # | ping #
n83=.-
n84=.Version:ctcp # VERSION
n85=.Clientinfo:ctcp # CLIENTINFO
n86=.Userinfo:ctcp # USERINFO
n87=.Echo:ctcp # ECHO $$?="Enter text to echo"
n88=.Time:ctcp # TIME
n89=Channel/IRC Stats:run $mircdirbin\chaninfo.exe $ddename $+ @ $+ $mircdir $+ $allchans
n90=Other Info
n91=.Channel Info:channel
n92=.Bans
n93=..View Bans
n94=...This Channel:mode # b
n95=...Other Channel:{
n96=  set %chan $$?="Enter your target channel:"
n97=  if $left(1,%chan) != $chr(35) set %chan $chr(35) $+ %chan
n98=  mode %chan b
n99=}
n100=..Clear All Bans:{
n101=  amiopped #
n102=  set %chan # | unset %rtban* | set %rtbans 0 | .enable #clearbans | mode # b
n103=  altech -a %dis10 $+ Clearing bans on # $+ ...
n104=}
n105=.Who:.enable #nw | who #
n106=-
n107=%popmatch:{
n108=  amiopped #
n109=  altech -a %dis10 $+ Enforcing your op list on # | alert
n110=  %opnicks = "" | %deopnicks = "" | %i = 0 | %j = 0 | %k = 0
n111=  :nx
n112=  inc %i
n113=  if $nick(%i,#) = $null {
n114=    if $len(%opnicks) > 1 mode # +oooo %opnicks
n115=    if $len(%deopnicks) > 1 mode # -oooo %deopnicks
n116=    halt
n117=  }
n118=  if $nick(%i,#) != $me {
n119=    if $isop($nick(%i,#),#) { inc %k | %opnicks = %opnicks $nick(%i,#) }
n120=    elseif ($nick(%i,#) isop #) { inc %j | %deopnicks = %deopnicks $nick(%i,#) }
n121=  }
n122=  if ((%maxmodes // %j) && (%j != 0)) { mode # -oooo %deopnicks | %deopnicks = "" }
n123=  if ((%maxmodes // %k) && (%k != 0)) { mode # +oooo %opnicks | %opnicks = "" }
n124=  goto nx
n125=}
n126=Channel Vote:{
n127=  if (%vote) {
n128=    altech -a %dis10 $+ There is already a vote in progress!
n129=    altech -a %dis10 $+ You must wait until this one finished, or press Shift-F3 to cancel it, before starting a new one | dh
n130=  }
n131=  run $mircdirbin\vote.exe $ddename $+ @ $+ $mircdir $+ $allchans
n132=}
n133=-
n134=Other
n135=.Op Notice (F4):onotice $$?="Enter Message"
n136=.Cycle:altech -a %dis10 $+ Cycling # | set %chan # | part # | .timer 1 2 join %chan
n137=.Invite:invite $$?="Enter nick to invite" #
n138=.Play ASCII:play $$file="Select .txt file to play:" [ $mircdirascii\ $+ *.txt ] 1000
n139=-
n140=Ban Last to Leave:F3
n141=%popmass
n142=.Mass Deops
n143=..Regular (F8):F8
n144=..Lag Checking:{
n145=  if $me !isop # { altech -a %dis10 $+ You are not opped on # $+ ! | dh }
n146=  set %lagchan # | .enable #lagmode | .disable #regctcp | set %tvlagtype deop
n147=  set %tvnumops $opnick(#,0) | set %tvreplies 0 | unset %tvlaglist
n148=  .timer44 1 10 lagmode | pingops #
n149=}
n150=.Mass Kicks
n151=..Kick Everyone (Shift-F8):mkick # all
n152=..Kick Only Non-Recognized:mkick # non
n153=..Lag Checking:{
n154=  if $me !isop # { altech -a %dis10 $+ You are not opped on # $+ ! | dh }
n155=  set %lagchan # | .enable #lagmode | .disable #regctcp | set %tvlagtype kick
n156=  set %tvnumops $opnick(#,0) | set %tvreplies 0 | unset %tvlaglist
n157=  .timer44 1 10 lagmode | pingops #
n158=}
n159=.Target Channel
n160=..Set as this channel: {
n161=  set %target # | altech -a %dis10 $+ # has been set as your target channel | alert
n162=  set %targetpop Clear %target as target
n163=}
n164=..Set as other channel:{
n165=  set %target $$?="Enter your target channel:"
n166=  if $left(1,%target) != $chr(35) set %target $chr(35) $+ %target
n167=  altech -a %dis10 $+ Target channel set to %target | alert
n168=  set %targetpop Clear %target as target
n169=}
n170=..%targetpop:unset %target | unset %targetpop | altech -a %dis10 $+ Target channel clear | alert
n171=.Auto Kick-Ban
n172=..Activate On This Channel:{
n173=  if $me isop # { set %autokick [ $+ [ # ] ] on | altech -a %dis10 $+ Auto Kick-Ban is ON for # }
n174=  else altech -a %dis10 $+  You are not an op on # $+ !
n175=  alert
n176=}
n177=..Deactive On This Channel:unset %autokick [ $+ [ # ] ] | altech -a %dis10 $+ Auto Kick-Ban is OFF for # | alert
n178=..Deactive On All:unset %autokick* | altech -a %dis10 $+ All auto kick-bans are OFF | alert
n179=.Fill Ban List:fillban #
n180=.Cycle Nicks
n181=..Start:dde control $ddename $+ cycle showyourself please
n182=..-
n183=..Stop:{
n184=  if ($notimer(987)) altech -a %dis10 $+ Nick cycling is not active!
n185=  else { .timer987 off | altech -a %dis10 $+ Nick cycling halted }
n186=  alert
n187=}
n188=.Lock Channel
n189=..Lock:{
n190=  amiopped #
n191=  rk # | .timer86 0 300 rk #
n192=  altech -a %dis10 $+ Locking # with random key, changing every 5 minutes
n193=  set %lock # | alert
n194=}
n195=..-
n196=..Unlock:{
n197=  if ($notimer(86)) { altech -a %dis10 $+ There is no locked channel! | dh }
n198=  elseif %lock != # { altech -a %dis10 $+ There is no lock on # $+ ! | dh }
n199=  .timer86 off | unset %lock
n200=  if $me isop # {
n201=    if ($chan(#).key != $null) mode # -k $chan(#).key
n202=    altech -a %dis10 $+  Unlocked #
n203=  }
n204=  else altech -a %dis10 $+ You are not an op on # $+ !
n205=  altech -a %dis10 $+ Random key halted | alert
n206=}
n207=.Mass Invites
n208=..Invite TO this channel:massinvite $$?="Enter channel to invite people from" #
n209=..-
n210=..Invite FROM this channel
n211=...Invite All:{
n212=  set %chan $$?="Enter channel to invite to"
n213=  if $left(%chan,1) != $chr(35) set %chan $chr(35) $+ %chan
n214=  if $me !ison %chan { altech -a %dis10 $+  You are not on %chan $+ ! | dh }
n215=  %l = 0
n216=  :nx
n217=  inc %l
n218=  if $nick(%l,#) = $me goto nx
n219=  if $nick(%l,#) != $null { invite $nick(%l,#) %chan | goto nx }
n220=}
n221=...-
n222=...Invite Non-Ops:{
n223=  set %chan $$?="Enter channel to invite to"
n224=  if $left(%chan,1) != $chr(35) set %chan $chr(35) $+ %chan
n225=  if $me !ison %chan { altech -a %dis10 $+ You are not on %chan $+ ! | dh }
n226=  %l = 0
n227=  :nx
n228=  inc %l
n229=  if $nopnick(%l,#) = $me goto nx
n230=  if $nopnick(%l,#) != $null { invite $nopnick(%l,#) %chan | goto nx }
n231=}

[mpopup]
n0=Where's the rest?:altech -a %dis10 $+ Click "Little Star" in the menu bar for additional popups! | alert
n1=-
n2=Nuke Info:getnukeinfo $$?="Enter nick to lookup:"
n3=Find IP:findip $$?="Enter IP to scan:"
n4=Whois?
n5=.Whois:ckserv | whois $$?="Enter a nickname"
n6=.WhoWas:ckserv | whowas $$?="Enter a nickname"
n7=.DNS:ckserv | .dns $$?="Enter a nickname"
n8=Ignore List
n9=.Display Ignores:{
n10=  %i = 0
n11=  :nx
n12=  inc %i
n13=  if $ignore(%i) != $null {
n14=    echo 4 -s %i $+ . $ignore(%i).mask 3( $+ $ignore(%i).type $+ )
n15=    goto nx
n16=  }
n17=  echo 4 -s Total Ignores: $ignore(0)
n18=  alert
n19=}
n20=.Remove Ignore:{
n21=  if $ignore(0) = 0 { echo 4 -s There are no ignores to remove! | dh }
n22=  set %temp $$?="Enter mask or number to remove"
n23=  if $isnum(%temp) {
n24=    if $ignore(%temp) = $null echo 3 -s *** %temp is not a valid ignore number!
n25=    else ignore -r $ignore(%temp)
n26=    alert
n27=  }
n28=  else ignore -r %temp
n29=}
n30=.Add Ignore:ckserv | addignore $$?="Enter nick to ignore"
n31=.Total Ignore
n32=..On (F6):f6
n33=..Off (F5):f5
n34=Logging
n35=.View Log File:dde control $ddename $+ logs showlog $logdir
n36=.View Session Logs {
n37=  if (%log) run notepad.exe $mircdirlogs\session.log
n38=  else { altech -a %dis10 $+ Session Logging is disabled! | alert }
n39=}
n40=.Bot Lite Logs
n41=..Clear Logs:write -c $mircdirlogs\botlite.log | altech -s %dis10 $+ Cleared Bot Lite log file | alert
n42=..View Logs:{
n43=  if (%botlog) run notepad.exe $mircdirlogs\botlite.log
n44=  else { altech -a %dis10 $+ Bot Logging is disabled! | alert }
n45=}
n46=Other
n47=.Away Status (F2):F2
n48=.Unix Terminal Emulator
n49=..On (F10):F10
n50=..Off (Shift F10):SF10
n51=.Get My Nick
n52=..Get Usual Nick:{
n53=  ckserv
n54=  if $me = %mynick { altech -a %dis10 $+ You're nick is already $me $+ ! | alert }
n55=  else { altech -a %dis10 $+ Attempting to acquire nick " $+ %mynick $+ " | getnick | .timer 1 2 tgn }
n56=}
n57=..Stop Trying:{
n58=  if ($notimer(930)) altech -a %dis10 $+ Get My Nick is not active!
n59=  else { .timer930 off | altech -a %dis10 $+ Giving up attempt to get nick " $+ %mynick $+ " }
n60=  alert
n61=}
n62=.Query:ckserv | query $$?="Enter a nickname"
n63=.Notify List
n64=..Add to List:notify $$?="Enter nick to add to notify list" $?="Enter comment (optional)"
n65=..Remove from List:notify -r $$?="Enter nick to remove from notify list"
n66=-
n67=%popnserv
n68=.Access Add:ckserv | msg NickServ access add $mask(%myadr,3)
n69=.Access List:ckserv | msg NickServ access list
n70=.Identify:ckserv | chpd | msg NickServ identify %nspd
n71=.Info:ckserv | msg NickServ info $$?="Enter Nick"
n72=.Recover && Release:{
n73=  ckserv | chpd | msg NickServ recover $?="Enter Nick" %nspd
n74=  .timer 1 2 msg NickServ release $! %nspd
n75=  .timer 1 4 nick $! | .timer 1 6 msg NickServ identify %nspd
n76=}
n77=.Set Kill
n78=..On:ckserv | msg NickServ set kill on
n79=..Off:ckserv | msg NickServ set kill off
n80=%popmserv
n81=.List:ckserv | msg memoserv list
n82=.Read:ckserv | msg memoserv read $$?="Enter Number"
n83=.Send:ckserv | msg memoserv send $$?="Enter nick" $$?="Enter message"
n84=.Delete:ckserv | msg memoserv del $$?="Enter Number"
n85=.Purge:ckserv | msg memoserv purge
n86=Server Commands
n87=.Connect to Server:server
n88=.-
n89=.Available Ports:ckserv | altech -a %dis10 $+ Listing ports for $server $+ ... | getports
n90=.Display K-Lines:ckserv | stats k
n91=.Display I-Lines:ckserv | stats i
n92=.Display O-Lines:ckserv | stats o
n93=.Display G-Lines:ckserv | stats g
n94=.MOTD:motd
n95=.Version:ckserv | version
n96=.Admin Info:ckserv | admin
n97=.Links:ckserv | links
n98=-
n99=Quits
n100=.Message?:ckserv | quit $$?="Enter quit message:"
n101=.Regular Quit:ckserv | set %keepme $false | quit %quitmsg
n102=.Random Message:ckserv | set %keepme $false | quit $read $mircdirtxt\quits.txt

[qpopup]
n0=Query:query $$1
n1=Whois?
n2=.Whois:swhois $$1
n3=.Normal Nick and Level:realnick $$1
n4=.DNS:.dns $$1
n5=.Nuke Info:getnukeinfo $$1
n6=.Country:{
n7=  if $a3($$1) = $null { altech -a %dis10 $+ $$1 is not in the internal address list, so I don't know where he/she is! | dh }
n8=  set %country $country($$1)
n9=  if %country = $null altech -a %dis10 $+ I do not know where $a5($$1) is!
n10=  else altech -a %dis10 $+ $$1 appears to be in %country
n11=  alert
n12=}
n13=.User Central:uwho $$1
n14=CTCP
n15=.Ping:ctcp $$1 ping
n16=.-
n17=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $$1 $nopath(%sfile)
n18=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $$1 $nopath(%sfile) $$?="Enter message:"
n19=.-
n20=.XDCC
n21=..List:ctcp $$1 XDCC LIST
n22=..-
n23=..Send:ctcp $$1 XDCC SEND $chr(35) $+ $$?="Enter file number"
n24=.Page:ctcp $$1 PAGE
n25=.Version:ctcp $$1 version
n26=.Client Info:ctcp $$1 clientinfo
n27=.Userinfo:ctcp $$1 userinfo
n28=.Finger:ctcp $$1 finger
n29=.Time:ctcp $$1 time
n30=DCC
n31=.Send:dcc send $$1
n32=.Chat:dcc chat $$1
n33=.-
n34=.File Server
n35=..%fservepath1:fserve $$1 %maxgets %fservepath1
n36=..%fservepath2:fserve $$1 %maxgets %fservepath2
n37=..-
n38=..Other Directory:dde control $ddename $+ getpath fserve $$1
n39=-
n40=Other
n41=.Notify List
n42=..Add:notify $$1 $?="Enter comment (optional)"
n43=..Remove:notify $$1 -r
n44=.Ignore:addignore $$1
n45=.Clear Window:clear
n46=-
n47=%popeggqc
n48=.Who:ic $$1 | say .who
n49=.Whom:ic $$1 | say .whom
n50=.Whois:ic $$1 | say .whois $$?="Enter a nick"
n51=.Notes
n52=..Read Notes:ic $$1 | say .notes read all
n53=..Erase Notes:ic $$1 | say .notes erase all
n54=.Control
n55=..Op:ic $$1 | say .op $$?="Enter nick to op"
n56=..Deop:ic $$1 | say .deop $$?="Enter nick to deop"
n57=..Kick:ic $$1 | say .kick $$?="Enter nick <reason>"
n58=..Kick-Ban:ic $$1 | say .kickban $$?="Enter nick <reason>"
n59=.Bans
n60=..Bans all:ic $$1 | say .bans all
n61=..Add Ban:ic $$1 | say .+ban $$?="Enter address to ban <reason"
n62=..Remove Ban:ic $$1 | say .-ban $$="Enter hostmask or ban number"
n63=.Ignores
n64=..Ignores:ic $$1 | say .ignores
n65=..Add Ignore:ic $$1 | say .+ignore $$?="Enter address to ignore"
n66=..Remove Ignore:ic $$1 | say .-ignore $$?="Enter hostmask or ignore number"
n67=.Console
n68=..Set Console:{
n69=  if %console = $null { altech -a %dis10 $+ You must first enter your console preference! | alert }
n70=  else { ic $$1 | say .console %console }
n71=}
n72=..Set Preference:set %console $$?="Enter preference, like -opj+ckmxbs" | altech -a %dis10 $+ Console preference set to %console | alert
n73=.Echo
n74=..On:ic $$1 | say .echo on
n75=..Off:ic $$1 | say .echo off
n76=.Quit:ic $$1 | say .quit | .timer 1 1 close -c $$1
n77=-
n78=%popfsqc
n79=.Add to Ban List:{
n80=  if ($fserv($$1) != $null) close -f $$1
n81=  unset %fsbreason | set %fsbreason $?="Enter reason (optional)"
n82=  if ($a5($$1) != $null) addfsb $convert($a5($$1)) %fsbreason
n83=  else {
n84=    altech -a %dis7 $+ $1 is not in the internal address list | altech -a %dis8 $+ Attempting alternate add...
n85=    set %addfsb $$1 | .enable #altfsb | userhost $1
n86=  }
n87=}
n88=.Increase Credits:{
n89=  if ($fserv($$1) != $null) {
n90=    set %credits $$?="Increase by how many bytes?"
n91=    inc %fservcredits [ $+ [ $fsady($$1) ] ] %credits
n92=    msg = $+ $$1 4,0 $+ $me has increased your credits by %credits bytes
n93=    msg = $+ $$1 2,0New credits:12,0 $fservcredits($$1)
n94=  }
n95=  else { altech -a %dis10 $+ $$1 is not using your file server! | dh }
n96=}
n97=-
n98=Add to Ban List:{
n99=  if $a3($$1) = $null {
n100=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
n101=    unset %banchan | .enable #altban | userhost $$1
n102=  }
n103=  else dde control $ddename $+ addban mask $a3($$1) $+ > $+ $address($$1,4) $+ >
n104=}
n105=Add to User List:{
n106=  if (%usespecific) { altech -a %dis10 $+ You cannot add people to your userlist if you are using channel-specific userlists! | altech -a %dis10 $+ Try adding from the channel names list | dh }
n107=  unset %addchan
n108=  if $a5($$1) = $null {
n109=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
n110=    set %addnick $$1 | .enable #altadd | userhost $$1
n111=  }
n112=  else dde control $ddename adduser $$1 $convert($a1($$1))
n113=}
n114=Remove User:remove $$1
n115=-

[lpopup]
n0=Query:query $$1
n1=Whois?
n2=.Whois (Multi):{
n3=  %i = 0
n4=  :nx
n5=  inc %i
n6=  if $snick(#,%i) != $null { swhois $snick(#,%i) | goto nx }
n7=}
n8=.Normal Nick and Level (Multi):{
n9=  %i = 0
n10=  :nx
n11=  inc %i
n12=  if $snick(#,%i) != $null { realnick $snick(#,%i) | goto nx }
n13=}
n14=.DNS (Multi):{
n15=  %i = 0
n16=  :nx
n17=  inc %i
n18=  if $snick(#,%i) != $null { altech -a %dis10 $+ Looking up $snick(#,%i) $+ ... | .dns $snick(#,%i) | goto nx }
n19=}
n20=.Nuke Info:getnukeinfo $$1
n21=.Country:{
n22=  set %country $country($$1)
n23=  if %country = $null altech -a %dis10 $+ I do not know where $a5($$1) is!
n24=  else altech -a %dis10 $+ $$1 appears to be in %country
n25=  alert
n26=}
n27=.User Central:uwho $$1
n28=Notify/Ignore
n29=.Notify List
n30=..Add:notify $$1 $?="Enter comment (optional)"
n31=..Remove:notify -r $$1
n32=.-
n33=.Ignore:addignore $$1
n34=-
n35=CTCP (Multi)
n36=.Ping:multictcp # ping
n37=.-
n38=.Sound:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $* $nopath(%sfile)
n39=.Sound w/Message:set %sfile $$file="Select .wav file to play:" [ $wavedir $+ *.wav ] | sound $* $nopath(%sfile) $$?="Enter message:"
n40=.-
n41=.XDCC
n42=..List:ctcp $$1 XDCC LIST
n43=..-
n44=..Send:ctcp $$1 XDCC SEND $chr(35) $+ $$?="Enter file number"
n45=.Page:ctcp $$1 PAGE
n46=.Version:multictcp # version
n47=.Client Info:multictcp # clientinfo
n48=.User Info:multictcp # userinfo
n49=.Finger:multictcp # finger
n50=.Time:multictcp # time
n51=DCC
n52=.Send (Multi):dcc send $snicks
n53=.Chat:dcc chat $$1
n54=.Pre-DCC Message:notice $snicks I am about to initiate DCC with you.  Please add me to your user list if this is required.
n55=.-
n56=.File Server
n57=..%fservepath1:fserve $$1 %maxgets %fservepath1
n58=..%fservepath2:fserve $$1 %maxgets %fservepath2
n59=..-
n60=..Other Directory:dde control $ddename $+ getpath fserve $$1
n61=-
n62=%popeggnl
n63=.Auto Chat/Login:{
n64=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
n65=  set %autoconn [ $+ [ $$1 ] ] $true | dcc chat $$1
n66=}
n67=.Set Password:set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
n68=.-
n69=.Request Ops:{
n70=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
n71=  raw -q PRIVMSG $$1 :op %eggpass [ $+ [ $$1 ] ]
n72=  altech -a %dis10 $+ Requesting ops from $$1
n73=}
n74=.Read Notes:{
n75=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
n76=  raw -q PRIVMSG $$1 :notes %eggpass [ $+ [ $$1 ] ] read all
n77=  altech -a %dis10 $+ Requesting notes from $$1
n78=}
n79=.Erase Notes:{
n80=  if (%eggpass [ $+ [ $$1 ] ] = $null) set %eggpass [ $+ [ $$1 ] ] $$?="Enter password"
n81=  raw -q PRIVMSG $$1 :notes %eggpass [ $+ [ $$1 ] ] erase all
n82=  altech -a %dis10 $+ Asking $$1 to erase notes
n83=}
n84=.Whois:{
n85=  raw -q PRIVMSG $$1 :whois $$?="Enter nick"
n86=  altech -a %dis10 $+ Requesting info from $$1
n87=}
n88=.-
n89=.Automatic Telnet:set %port [ $+ [ $$1 ] ] $$?="Enter port" | .enable #telnetdns | .disable #regdns | .dns $$1
n90=.Manual Telnet:set %ip $$?="Enter IP" | set %port $$?="Enter port" | raw -q PRIVMSG $me : $+ $chr(1) $+ dcc chat chat $longip(%ip) %port $+ $chr(1)
n91=%popcserv
n92=.ChanServ
n93=..Op:msg chanserv op # $$1
n94=..Deop:msg chanserv op # - $+ $$1
n95=..-
n96=..Super Ops
n97=...Add:msg chanserv sop # add $convert($a3($$1))
n98=...Remove:msg chanserv sop # del $convert($a3($$1))
n99=...List:msg chanserv sop # list
n100=...-
n101=...Other
n102=....Add Other:msg chanserv sop # add $$?="Enter nick or mask"
n103=....Remove Other:msg chanserv sop # del $$?="Enter index, nick, or mask"
n104=..Auto Ops
n105=...Add:msg chanserv aop # add $convert($a3($$1))
n106=...Remove:msg chanserv aop # del $convert($a3($$1))
n107=...List:msg chanserv aop # list
n108=...-
n109=...Other
n110=....Add Other:msg chanserv aop # add $$?="Enter nick or mask"
n111=....Remove Other:msg chanserv aop # del $$?="Enter index, nick, or mask"
n112=..Auto Kicks
n113=...Add:msg chanserv akick # add $a3($$1)
n114=...Add Other:msg chanserv aop # add $$?="Enter nick or mask"
n115=...Remove:msg chanserv akick # del $$?="Enter index, nick, or mask"
n116=...List:msg chanserv akick # list
n117=..-
n118=..Kick Everybody:msg chanserv mkick #
n119=..Deop Everybody:msg chanserv mdeop #
n120=..-
n121=..Mode Protection
n122=...Keep Topic
n123=....On:msg chanserv set # keeptopic on
n124=....-
n125=....Off:msg chanserv set # keeptopic off
n126=...Lock Modes:msg chanserv set # mlock $$?="Enter mode lock mask"
n127=...OpGuard
n128=....On:msg chanserv set # opguard on
n129=....-
n130=....Off:msg chanserv set # opguard off
n131=...LeaveOps
n132=....On:msg chanserv set # leaveops on
n133=....-
n134=....Off:msg chanserv set # leaveops off
n135=...Private
n136=....On:msg chanserv set # private on
n137=....-
n138=....Off:msg chanserv set # private off
n139=..Other
n140=...Set Founder:msg chanserv set # founder
n141=...Identify:chcpd | msg chanserv identify # %cspd
n142=...Set Description:msg chanserv set # desc $$?="Enter description"
n143=...Channel Info:msg chanserv info #
n144=.X Bot
n145=..Op:msg x op # $$1
n146=..Deop:msg x deop # $$1
n147=..-
n148=..Kick:msg x kick # $$1 $$?="Enter Reason"
n149=..-
n150=..Bans
n151=...Add Ban
n152=....1 Hour Ban:msg x ban # $$1 1 100 $$?="Enter Reason"
n153=....1 Day Ban:msg x ban # $$1 24 100 $$?="Enter Reason"
n154=....1 Week Ban:msg x ban # $$1 168 100 $$?="Enter Reason"
n155=....14 Day Ban:msg x ban # $$1 336 100 $$?="Enter Reason"
n156=....-
n157=....Other:msg x ban # $$1 $$?="How Many Hours? " 100 $$?="Enter Reason"
n158=...Unban:msg x unban # $$?="Enter nick or banmask"
n159=...List Bans:msg x lbanlist #
n160=...Clear Banlist:msg x clearbanlist #
n161=..-
n162=..Suspend
n163=...1 Hour Suspension:msg x suspend # $$1 1 h
n164=...1 Day Suspension:msg x suspend # $$1 1 d
n165=...1 Week Suspension:msg x suspend # $$1 7 d
n166=...1 Month Suspension:msg x suspend # $$1 1 m
n167=..Unsuspend:msg x unsuspend # $$1
n168=..-
n169=..Adduser
n170=...Level 50:msg x adduser # $$1 $convert($a3($$1)) 50
n171=...Level 75:msg x adduser # $$1 $convert($a3($$1)) 75
n172=...Level 100:msg x adduser # $$1 $convert($a3($$1)) 100
n173=...Level 400:msg x adduser # $$1 $convert($a3($$1)) 400
n174=...Level 450:msg x adduser # $$1 $convert($a3($$1)) 450
n175=...Level 499:msg x adduser # $$1 $convert($a3($$1)) 499
n176=.W Bot
n177=..Op:msg w op # $$1
n178=..Deop:msg w deop # $$1
n179=..-
n180=..Kick:msg w kick # $$1 $$?="Enter Reason"
n181=..-
n182=..Bans
n183=...Add Ban
n184=....1 Hour Ban:msg w ban # $$1 1 100 $$?="Enter Reason"
n185=....1 Day Ban:msg w ban # $$1 24 100 $$?="Enter Reason"
n186=....1 Week Ban:msg w ban # $$1 168 100 $$?="Enter Reason"
n187=....14 Day Ban:msg w ban # $$1 336 100 $$?="Enter Reason"
n188=....-
n189=....Other:msg w ban # $$1 $$?="Enter How Many Hours" 100 $$?="Enter Reason"
n190=...Unban:msg w unban # $$?="Enter nick or banmask"
n191=...List Bans:msg w lbanlist #
n192=...Clear Banlist:msg w clearbanlist #
n193=..-
n194=..Suspend
n195=...1 Hour Suspension:msg w suspend # $$1 1 h
n196=...1 Day Suspension:msg w suspend # $$1 1 d
n197=...1 Week Suspension:msg w suspend # $$1 7 d
n198=...1 Month Suspension:msg w suspend # $$1 1 m
n199=..Unsuspend:msg w unsuspend # $$1
n200=..-
n201=..Adduser
n202=...Level 50:msg w adduser # $$1 $convert($a3($$1)) 50
n203=...Level 75:msg w adduser # $$1 $convert($a3($$1)) 75
n204=...Level 100:msg w adduser # $$1 $convert($a3($$1)) 100
n205=...Level 400:msg w adduser # $$1 $convert($a3($$1)) 400
n206=...Level 450:msg w adduser # $$1 $convert($a3($$1)) 450
n207=...Level 499:msg w adduser # $$1 $convert($a3($$1)) 499
n208=.K9
n209=..Access:msg k9 access # $$1
n210=..-
n211=..Set Pass:msg k9 setpass # $$?="Your New Password" 
n212=..Comment:msg k9 comment # $$?="Your Comment"
n213=..-
n214=..Banlist
n215=...Current Channel:msg k9 banlist #
n216=...Other Channel:msg k9 banlist $$?="Channel Name"
n217=..-
n218=..Kicks
n219=...Quick Kick:msg k9 kick # $$1
n220=...Kick With Reason:msg k9 kick # $$1 $$?="Enter reason:"
n221=...-
n222=...Lamer Kick:msg k9 kick # $$1 Yer a Lamer, Please leave!
n223=...Flooder Kick:msg k9 kick # $$1 Flooding isn't very polite, Please leave!
n224=...Advertizer Kick:msg k9 kick # $$1 No advertizing in MY channel, its RUDE, Please leave!
n225=..Bans
n226=...Quick Ban:msg k9 ban # $$1 
n227=...Ban with Reason:msg k9 ban # $$1 $$?="Enter reason"
n228=...-
n229=...Temp Bans:dde control $ddename $+ k9 addban # $$1
n230=..Channel Sets
n231=...Topic
n232=....Set Strict Topic
n233=.....On:msg k9 strictt T
n234=.....Off:msg k9 strictt F
n235=....-
n236=....Set Topic:msg k9 topic # $$?="Topic"
n237=...Modes
n238=....Normal Modes (+tn):msg k9 mode # +tn
n239=....-
n240=....Add Modes
n241=.....+t:msg k9 mode # +t
n242=.....+n:msg k9 mode # +n
n243=.....-
n244=.....+s:msg k9 mode # +s
n245=.....+l:msg k9 mode # +l $$?="Limit"
n246=.....+i:msg k9 mode # +i
n247=.....+k:msg k9 mode # +k $$?="Key"
n248=.....+m:msg k9 mode # +m
n249=....Remove Modes
n250=.....-t:msg k9 mode # -t
n251=.....-n:msg k9 mode # -n
n252=.....-
n253=.....-s:msg k9 mode # -s
n254=.....-l:msg k9 mode # -l 
n255=.....-i:msg k9 mode # -i
n256=.....-k:msg k9 mode # -k $$?="Key"
n257=.....-m:msg k9 mode # -m
n258=..User Sets
n259=...Add User
n260=....Add 50:msg k9 adduser # $$1 50
n261=....Add 75:msg k9 adduser # $$1 75
n262=....Add 100:msg k9 adduser # $$1 100
n263=....Add 200:msg k9 adduser # $$1 200
n264=....Add 400:msg k9 adduser # $$1 400
n265=....Add 450:msg k9 adduser # $$1 450
n266=....-
n267=....Specify Level:msg k9 adduser # $$1 $$?="Level"
n268=...Remove User:msg k9 remuser # $$?="User ID"
n269=...-
n270=...Add Mask:msg k9 addmask # $$?="User ID" $$?="User Name?"
n271=...Set Auto-Op
n272=....On:msg k9 autoop # $$1 T 
n273=....Off:msg k9 autoop # $$1 F
n274=..-
n275=..Special Commands
n276=...OnJoin
n277=....Add:msg k9 onjoin # add $$?="Enter Comment"
n278=....Clear:msg k9 onjoin # clear
n279=...-
n280=...Join Channel:msg k9 join #
n281=...Part Channel:msg k9 part #
n282=...-
n283=...K9 Say:msg k9 say # $$?="What do you want K9 to say?"
n284=...K9 Action:msg k9 act # $$?="Enter action:"
n285=...K9 Sound:msg k9 snd # $$?="Sound file to play" $$?="Message"
n286=-
n287=Ops
n288=.OP (Multi):{
n289=  %i = 0
n290=  %nicks = ""
n291=  :nx
n292=  inc %i
n293=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # +oooo %nicks | halt }
n294=  set %nicks %nicks $snick(%i,#)
n295=  if %maxmodes // %i { mode # +oooo %nicks | %nicks = "" }
n296=  goto nx
n297=}
n298=.-
n299=.DeOP (Multi):{
n300=  %i = 0
n301=  %nicks = ""
n302=  :nx
n303=  inc %i
n304=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # -oooo %nicks | halt }
n305=  set %nicks %nicks $snick(%i,#)
n306=  if %maxmodes // %i { mode # -oooo %nicks | %nicks = "" }
n307=  goto nx
n308=}
n309=.-
n310=.Cute OP:mode # +oooo $$1 $1 $1 $1
n311=.FakeOp:mode # +o $$1 | mode # -o $$1
n312=Voice
n313=.Give Voice (Multi):{
n314=  %i = 0
n315=  %nicks = ""
n316=  :nx
n317=  inc %i
n318=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # +vvvv %nicks | halt }
n319=  %nicks = %nicks $snick(%i,#)
n320=  if %maxmodes // %i { mode # +vvvv %nicks | %nicks = "" }
n321=  goto nx
n322=}
n323=.Take Voice (Multi):{
n324=  %i = 0
n325=  %nicks = ""
n326=  :nx
n327=  inc %i
n328=  if $snick(%i,#) = $null { if $len(%nicks) > 0 mode # -vvvv %nicks | halt }
n329=  %nicks = %nicks $snick(%i,#)
n330=  if %maxmodes // %i { mode # -vvvv %nicks | %nicks = "" }
n331=  goto nx
n332=}
n333=-
n334=Kicks
n335=.Quick (Multi):{
n336=  %i = 0
n337=  :nx
n338=  inc %i | if $snick(%i,#) != $null { sk $snick(%i,#) | goto nx }
n339=}
n340=.-
n341=.With Reason:dde control $ddename $+ kick kick # $$1 %kickmsg
n342=.-
n343=.Action
n344=..Smells Bad:ak # $$1 19
n345=..Cow Suit:ak # $$1 20
n346=..Weeds:ak # $$1 21
n347=..Electric Chair:ak # $$1 22
n348=..Royal Flush:ak # $$1 23
n349=..Pirhana Clams:ak # $$1 24
n350=..Emerald Wand:ak # $$1 25
n351=..Axe:ak # $$1 26
n352=..Microwave:ak # $$1 27
n353=..Lamer Detector:ak # $$1 28
n354=..Smart Bomb:ak # $$1 29
n355=..Lost Head:ak # $$1 30
n356=..Guillotine:ak # $$1 31
n357=..Bus Stop:ak # $$1 32
n358=..Elephant Smell:ak # $$1 33
n359=..Mr Wizzard:ak # $$1 34
n360=..Enema:ak # $$1 38
n361=..Frankly My Dear:ak # $$1 37
n362=..Elmer Fudd:set %chan # | set %tn $$1 | set %me $me | $readini $mircdirmisc.ini kicks 40
n363=..Countdown:ak # $$1 35
n364=..Op Begging:ak # $$1 36
n365=Bans:{
n366=  if $a5($$1) = $null { 
n367=    altech -a %dis7 $+ Sorry, I don't know the address for $$1
n368=    altech -a %dis8 $+ Attempting to update internal address list... | who #
n369=  }
n370=  else dde control $ddename $+ ban ban # $a5($$1) $a3($$1)
n371=}
n372=KickBans
n373=.Quick (F9):f9 $$1
n374=.-
n375=.Dialog:{
n376=  if $a5($$1) = $null { 
n377=    altech -a %dis7 $+ Sorry, I don't know the address for $$1
n378=    altech -a %dis8 4+ Attempting to update internal address list... | who #
n379=  }
n380=  else {
n381=    if %kickbanmsg = $null set %kickbanmsg you are banned
n382=    dde control $ddename $+ kickban kickban # %kickbanmsg $+ @ $+ $a5($$1) $a3($$1)
n383=  }
n384=}
n385=.-
n386=.Action
n387=..Smells Bad:ak # $$1 1
n388=..Cow Suit:ak # $$1 2
n389=..Weeds:ak # $$1 3
n390=..Electric Chair:ak # $$1 4
n391=..Royal Flush:ak # $$1 5
n392=..Pirhana Clams:ak # $$1 6
n393=..Emerald Wand:ak # $$1 7
n394=..Axe:ak # $$1 8
n395=..Microwave:ak # $$1 9
n396=..Lamer Detector:ak # $$1 10
n397=..Smart Bomb:ak # $$1 11
n398=..Lost Head:ak # $$1 12
n399=..Guillotine:ak # $$1 13
n400=..Bus Stop:ak # $$1 14
n401=..Elephant Smell:ak # $$1 15
n402=..Mr Wizzard:ak # $$1 16
n403=..Enema:ak # $$1 39
n404=..Frankly My Dear:ak # $$1 43
n405=..Elmer Fudd:set %chan # | set %tn $$1 | set %me $me | $readini $mircdirmisc.ini kicks 41
n406=..Countdown:ak # $$1 17
n407=..Op Begging:ak # $$1 18
n408=-
n409=Add to Ban Lists
n410=.Ban List:{
n411=  if ($gl($$1) > 19) { altech -a %dis10 $+ $$1 is in your userlist, removing... | remove $$1 }
n412=  if $a3($$1) = $null {
n413=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
n414=    set %banchan # | .enable #altban | userhost $$1
n415=  }
n416=  else {
n417=    if $a3($$1) iswm %myadr { altech -a %dis7 $+ Duh, hey Marge... I think I'll ban myself today | altech -a %dis8 $+ Procedure Aborted! | dh }
n418=    dde control $ddename $+ addban mask $a3($$1) $+ > $+ $address($$1,4) $+ > $+ #
n419=    if $me isop # { kickban $a3($$1) # %default | rtb $a3($$1) # }
n420=  }
n421=}
n422=.File Server Ban List:{
n423=  if ($fserv($$1) != $null) close -f $$1
n424=  unset %fsbreason | set %fsbreason $?="Enter reason (optional)"
n425=  if ($a5($$1) != $null) addfsb $convert($a5($$1)) %fsbreason
n426=  else {
n427=    altech -a %dis7 $+ $1 is not in the internal address list | altech -a %dis8 $+ Attempting alternate add...
n428=    set %addfsb $$1 | .enable #altfsb | userhost $1
n429=  }
n430=}
n431=Shut-Up Ban
n432=.Place:{
n433=  if $me !isop # notop #
n434=  if $$1 = $me { altech -a %dis7 $+ duh... Ok Marge, I think I'll place a shut up ban on myself today | altech -a %dis8 $+ Procedure Aborted! | alert }
n435=  elseif $gl($$1) > 18 { altech -a %dis10 $+ $$1 is in your userlist.  You cannot place a shut-up ban on that address! | speak you can not place a shut up ban on a recognized address }
n436=  else {
n437=    .auser -a =16 $a2($1,2)
n438=    raw -q notice # :A shut-up ban has been placed on $$1.  If he speaks, he will be kicked.
n439=    raw -q notice $me :A shut-up ban has been placed on $$1.  If he speaks, he will be kicked.
n440=  }
n441=}
n442=.-
n443=.Remove:{ .ruser =16 $a2($1) | notice # Shut-up ban on $$1 has been removed. }
n444=-
n445=Add to User List:{
n446=  set %addchan #
n447=  if $a5($$1) = $null {
n448=    altech -a %dis7 $+ $$1 is not in internal address list | altech -a %dis8 $+ Attempting alternate add...
n449=    set %addnick $$1 | .enable #altadd | userhost $$1
n450=  }
n451=  else dde control $ddename adduser $$1 $convert($a1($$1))
n452=}
n453=Remove User:remove $$1
n454=-
